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SCIENTIFIC TIME SHARING CORPORATION 
2135 Wisconsin Avenue N. W. , Washington, D. C., 20007 

Telephone (202) 965 4150 


BIBLIOGRAPHY AND ORDER FORM 
APL PLUS TIME SHARING SERVICE 

#1 APLX360 - AN INTERACTIVE APPROACH , L. I. Gilman and 
"Al JL Rose - Wiley, 1970 (335 pages, a complete self 
teaching text). 

#2 APLX360 PRIMER , P. C. Berry - IBM Corporation, 1970 

#3 APLX360 USER'S MANUAL , A. D. Falkoff and 
K. E. Iverson - IBM Corporation 

#4 APLX360 REFERENCE MANUAL , S. Pakin - SRA, 1968 

SCIENTIFIC TIME SHARING CORPORATION PUBLICATIONS: 


#11 

APL PLUS 

Time Sharing for the User of BASIC 

$1.00 


#12 

APL PLUS 

File Subsystem Instruction Manual 

$1.00 


#13 

PROGRAM LIBRARY USERS GUIDE: 




(a) 

MATHPAK 

$1.00 



(b) 

STATPAK 

$1.00 



(c) 

FINANCEPAK 

$1.00 



(d) 

PLOTPAK 

$1.00 



(e) 

REPORT FORMATTING fiFMT 

$1.00 



(f) 

EDITPAK 

$1.00 



(g) 

FILEPRINT 

$1.00 



(h) 

INFORMATION RETRIEVAL 

$1.00 



(i) 

PUBLIC LIBRARY INDEX 

N.C. 

$10.00 


(The above may be purchased individually or as 

a set 

$ 8.00) 


$ 6.95 
$ 9.00 

$ 5.00 
$ 5.00 


SCIENTIFIC TIME SHARING CORPORATION 
2135 Wisconsin Avenue N. W. 

Washington, D. C. 20007 

Please send the above circled manuals. (Payment enclosed/please 
bill - include $1.00 for postage and handling charges). 

Name_ Tel. : ( ) _ 

Company_ 

Address_ 

City_State_Zip 





















SJ 71 


USING LARGE FILES 



)LOAD 1 FILES 
SAVED 13.13.18 11/30/70 

* SAMPLEFILE' FCREATE 1 
»ALPHA DATA * F4PPFtfP 1 
(ilOOO) FAPPEND 1 
'ABCDEFGHI' FAPPEND 1 
(?35 27p99999) FAPPEND 1 
FREAD 1 1 
ALPHA DATA 

“5+FPF4P 1 2 

996 997 998 999 1000 

+/FREAD 1 2 

500500 

pFREAD 1 4 

35 27 

(FREAD 1 4)[26;8 2 14] 
43045 76234 51934 

(?12p 9) FREPLACE 1 1 
FREAD 1 1 

9192953768 
FLIM 1 

1 5 

FLP0P 1 2 
FLIM 1 

3 5 

FDROP "l "l 


Create file 1 named SAMPLEFILE 

Place new component on file 1 with character data 
First 1000 Integers become 2nd component of file 
Place character data Into 3rd component 
Array of random data Into 4th component 
Read file 1 component 1 

Take last 5 elements of file 1 component 2 


Replace component 1 with 12 random Integers 


What are the limits of file 1? 

First component is #1, next to go In will be #5 
Drop the first 2 components on file 1 

First component Is now #3 
Drop the last component 


1 


FLIM 1 

3 4 


Next to go in will be #4 


REPORT FORMATTING (A FMT) 


NUMERICS 
336067.35 
“66509 
188209.4 


446867.1 
0 

8130 


7906.35 
223.4 
1235.6 


237.4 
“84.556 
867552.45 


ALPHA 

ITEM 1 
ITEM2 
ITEM 3 


n COMMA INSERTION , ZERO SUPRESSION , FIELD WIDTH OF 20, 2 DECIMAL PLACES 


'CBF 20.2 • A FMT NUMERICS 

336,067.35 “446,867.10 

“66,509.00 

“188,209.40 8,130.00 


7,906.35 
223.40 
1,235.60 


237.40 

“84.56 

867,552.45 


pi COMMA • INSERTION , ZERO SUPRESSION , FLOATING DOLLAR SIGN , PARENTHESIZE NEGATIVES 
ft FIELD WIDTH OF 20, 2 DECIMAL PLACES 


'CBPflS H£(3 0M3W(3)[3F2O.2» A FMT NUMERICS 
$ 336,067.35 (446,867.10) 

(66,509.00) 

(188,209.40) $ 8,130.00 


$ 

$ 


7,906.35 
$ 223.40 
1,235.60 


$ 237.40 
(84.56) 
$ 867,552.45 


ft ALPHABETIC FIELD , SFP4P4I0P5, SPLIT FIELDS...ONE WITH COMMA INSERTION , ZFP0 SUPRESSION , 
ft MIDDLE BAR INSERTED FOR NEGATIVES, THE OTHER WITH COMMA INSERTION , FLOATING DOLLAR SIGN , 
ft FOLLOW CREDITS AND DEBITS WITH CR OR DB OVER A FIELD OF 20 WITH 2 DECIMAL PLACES 

• 541,(3 °° Q, 2CBMV\-V\I1 5,2CPI7]# (35(3 C7?EM3 [M3 PB0F2O.2' A FMT {ALPHA -.NUMERICS) 


IT EMI 

O O 

336,067 -446,867 

$ 7,906.35 CR 

$ 237.40 

CR 


ITEM2 

o o 

-66,509 

$ 223.40 CR 

84.56 

DB 


IT EM 3 

o o 

-188,209 8,130 

$ 1,235.60 CR $ 867,552.45 

CR 



ft SAME AS 

ABOVE BUT WITH A PHRASE 

INSERTED FOR ZERO OCCURENCES 




*541,(3 °° 

(3,2 CBM3-(3F[3 

NONEV\I20,2CPV\$ 0G(3 CP0M0 

[M3 DBftF 20.2* A FMT 

{ALPHA\NUMERICS) 

ITEM 1 

o o 

336,067 

-446,867 $ 7,906.35 

CR 

$ 237.40 

CR 

ITEM2 

o o 

-66,509 

NONE $ 223.40 

CR 

84.5 6 

DB 

ITEM 3 

o o 

-188,209 

8,130 $ 1,235.60 

CR $ 

867,552.45 

CR 











EXAMPLES OF USEFUL FUNCTIONS IN APL PLUS 


APLflus 


CUMULATIVE SUM 


SORT CHARACTERS 

Any collating sequence may be used. 


[1] 


1CUMSUM CO]V 
V R+-CUMSUM X 

/?«-( ( i p AT) © . >\p*)+. x X 


VSORTl □]V 

V R+COL SORT M 

Cl] R+Ml *( l+pCOL)±§COL\M; ] 

V 


CUMSUM 123456 
1 3 6 10 15 21 


HYPOTENUSE OF A RIGHT TRIANGLE 


vz/ypcmv 

V C+A HYP B 

[1] C+-((A*2)+B*2)*Q. 5 

V 


3 HYP 4 
5 

315 HYP 4 1 12 
5 1.414213562 13 


CITIES 
WASHINGTON 
HARTFORD 
NEW YORK 
PHILADELPHIA 
BOSTON 
PITTSBURGH 
DALLAS 
LOS ANGELES 
PALO ALTO 
SAN FRANCISCO 

ALF+'ABCDEFGHIJKLMNOPQRSTUVWXYZ 
CITIES+ALF SORT CITIES 
CITIES 

BOSTON 
DALLAS 
HARTFORD 
LOS ANGELES 
NEW YORK 
PALO ALTO 
PHILADELPHIA 
PITTSBURGH 
SAN FRANCISCO 
WASHINGTON 


POLYNOMIAL EVALUATION 

Consider polynomial: Y^X 1 * -9X 5 +4X+n 

It's coefficients are: 3 -9 0 4 13 


VPOLYCniV 

V R+C POLY X 

Cl] /?«-( ((pX),l)pX)iC 

V 


C+- 3 9 0 4 13 

C POLY 1 

11 

C POLY 10 

21053 

X+2 3p1 10,i4 
X 

110 1 
2 3 4 

C POLY X 

11 21053 ii 

3 25 221 


TABLE LOOK UP 

Given a table of character data (CITIES) and a table 
of possible new entries (NEWCITIES) see if the new 
entries are already in the table. Try it the other 
way around. 


VTLU [D]V 
V R+T TLU N 
Cl] P«-( \ 1 +p T) + . x^a . 
7 


NEWCITIES 

CHICAGO 

BOSTON 

HOUSTON 

WASHINGTON 

CITIES TLU NEWCITIES 
0 1 0 10 

NEWCITIES TLU CITIES 
2000000004 







more powerful than FORTRAN 
... easier than BASIC ... 


DESK CALCULATOR OPERATIONS 


OPERATIONS EXTEND TO ARRAYS 








A+'ABCDEFGHIJKL' 



a n 

P A 


82 

User Input indented 

1 2 

3 4 oA 

82 

Response not indented 

ABCD 



2 + 5 

Add Scalar to scalar 

EFGH 



7 


IJKL 



4-6 

Subtract 


O2 

3p i 6 

“2 



B 


678x23.4 

Multiply 

1 

2 3 


15865.2 


4 

5 6 


5*7 

Divide 


04 

2 7 15 8 

0.7142857143 



02 

3p C 

) DIGITS 16 

Change display to 16 places 


c 


WAS 10 


4 

2 7 


5*7 


1 

5 8 


0.7142857142857143 

Internal precision is 16+ 


B+C 


)DIGITS 10 


5 

4 

10 

WAS 16 


5 

10 

14 




B*C 




4 

4 

21 



4 

25 

48 




B-C 




0 1 

0 




0 1 

0 





B>C 


OPERATIONS EXTEND TO VECTORS 

0 0 

1 0 

0 

0 





B , C 




1 

2 3 

4 2 7 



4 

5 6 

15 8 


B.lllC 


Shape of A 

Reshape A into 3 rows, 4 columns 


Operation on arrays 
element-by-e1ement 


Relational operators <<=£>* 


Arrays may be catenated 


Catenated in any dimension 












2 + 2 4732 

4 6 9 5 4 

2473 2+2 
4 6 9 5 4 

3 4 5+6 7 8 

9 11 ‘ 13 

345+678 

1023 

Y<-2 4 7 3 2 
Y 

2 4 7 3 2 

YxY 

4 16 49 9 4 



2+4+7+3+2 

18 

+ / 2 4 7 3 2 

18 

+ /Y 

18 

x/Y 

336 

r /y 

7 

l/Y 

2 

(rm-L/y 

5 

2 t Y 

2 4 

”3+Y 

7 3 

2 


1 + Y 


4 7 3 2 

“l + Y 
2 4 7 3 

i 6 

1 2 3 4 5 6 


Scalar to vector 

Vector to scalar 

Vector to vector 

Spaces separate numbers 

Y is assigned the value 
of the expression 


Maximum in Y 
Mini mum in Y 
Range in Y 

Take first 2 elements 
Take last 3 elements 

Drop first element 

Drop last element 
Index generator 


Scientific 
Time Sharing 

Corporation 


2135 Wisconsin Avenue, N.W., Washington, D. C. 20007 • (202) 965-4150 


i z 3 
4 5 6 

4 2 7 

15 8 

B+$B 
B 

1 4 

2 5 

3 6 

B+ . 

8 22 39 

13 29 54 

18 36 69 

F[2;2] 

5 

B[3 ;1>0 

M +1 2 ?3 2 'l 211 “1 
M+-3 3pM 
M 

1 2 "3 

2 "l 2 

1 1 “l 

K«-~9 16 "l 

XYZ+VEM 

XYZ 

4 ~2 3 

M+ .xXYZ 
“9 16 “l 


Transpose of matrix B 


Matrix product 


Parts of arrays may be selected 
and changed 

Simultaneous linear equations: 
x + 2y-3z = -9 
2x- y+2z=16 
x+ y- z=-l 

solved by dividing vector of constants 
by matrix of coefficients 


WRITING PROGRAMS 



VAVG X 


[1] 

(+/X)*pY 


C 2 ] 

V 


2.5 

3.6 

AVG 12 3 

AVG Y 

V CIRCLE 

4 

Cl]» 

WHAT IS THE 

RADIUS? 

[2] 

R+D 


[3] 

AREA + 2 . 14x/?*2 

C4]» 

THE AREA IS 

• lAREA 

[5] 

V 

CIRCLE 


WHAT 

IS THE RADIUS? 


□ : 

4 

THE AREA IS 50.24 
CIRCLE 

WHAT IS THE RADIUS? 
□ : 

12345.5 
THE AREA IS 3.14 

12.56 28.26 

50.24 94.985 


Program defined by typing V 
Sum of X divided by shape of X 
End program by typing 2nd V 
Execute AVG 


Define program CIRCLE 
Conversational program 
R is input 


Execute CIRCLE 


Input can be scalar/ vector/ or array 


/ 

t 


\ 







